Fix dolist-with-progress-reporter behaviour

* subr.el (dolist-with-progress-reporter): Use the length of list
  argument as maximal value the reporter with reach

diff --git a/lisp/subr.el b/lisp/subr.el
index 5fac316e379b3b03c094d5763caf1c60b891e8ed..6bd9a018eb03f4617f933601a685986d51322a78 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -5995,7 +5995,7 @@ print the reporter message followed by the word \"done\".
            (,count 0)
            (,list ,(cadr spec)))
        (when (stringp ,prep)
-         (setq ,prep (make-progress-reporter ,prep 0 (1- (length ,list)))))
+         (setq ,prep (make-progress-reporter ,prep 0 (length ,list))))
        (dolist (,(car spec) ,list)
          ,@body
          (progress-reporter-update ,prep (setq ,count (1+ ,count))))